home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / sl_gen.zip / DEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1990-04-25  |  5KB  |  91 lines
  1. Program demo;
  2.  
  3. USES 
  4.    FastTTT5,                   { Fast screen writing }
  5.    IoTTT5,                     { Input Routines }
  6.    MiscTTT5;                   { Miscellaneous Routines }
  7.  
  8. TYPE
  9.    strarray = array[1..15] of string;
  10.  
  11. VAR
  12.    infield  : strarray;
  13.    prattr   : byte;           { Screen attribute for prompts}
  14.  
  15. PROCEDURE Display_Input_Screen;
  16. BEGIN
  17.    FastWrite(1,1,prattr,'╔═════════════════════════════════════════════════════════════════════════════╗');
  18.    FastWrite(1,2,prattr,'║  Ver.1.0                     Accounts Payable                               ║');
  19.    FastWrite(1,3,prattr,'║                        (C)1990 by SL-EASY Software                          ║');
  20.    FastWrite(1,4,prattr,'╠═════════════════════════════════════════════════════════════════════════════╣');
  21.    FastWrite(1,5,prattr,'║ Vendor No.  :         Name:                                                 ║');
  22.    FastWrite(1,6,prattr,'║ Address     :                                                               ║');
  23.    FastWrite(1,7,prattr,'║ City        :                      State:   Zip:                            ║');
  24.    FastWrite(1,8,prattr,'║ Phone       :               Contact:                                        ║');
  25.    FastWrite(1,9,prattr,'╠═════════════════════════════════════════════════════════════════════════════╣');
  26.    FastWrite(1,10,prattr,'║ Comments:                                                                   ║');
  27.    FastWrite(1,11,prattr,'║ :                                                                           ║');
  28.    FastWrite(1,12,prattr,'║ :                                                                           ║');
  29.    FastWrite(1,13,prattr,'║ :                                                                           ║');
  30.    FastWrite(1,14,prattr,'║ :                                                                           ║');
  31.    FastWrite(1,15,prattr,'║ :                                                                           ║');
  32.    FastWrite(1,16,prattr,'║ :                                                                           ║');
  33.    FastWrite(1,17,prattr,'║                                                                             ║');
  34.    FastWrite(1,18,prattr,'╠═════════════════════════════════════════════════════════════════════════════╣');
  35.    FastWrite(1,19,prattr,'║ Use Up,Down arrow or CTRL-Left,CTRL-Right arrow to move to next field.      ║');
  36.    FastWrite(1,20,prattr,'║ Press F10 when done *************************                               ║');
  37.    FastWrite(1,21,prattr,'║                                                                             ║');
  38.    FastWrite(1,22,prattr,'╚═════════════════════════════════════════════════════════════════════════════╝');
  39.    FastWrite(1,23,prattr,'');
  40.    FastWrite(1,24,prattr,'');
  41.    Create_Fields(15);
  42.    Add_Field(1,0,2,0,2,16,5);
  43.    String_Field(1,InField[1],'######');
  44.    Add_Field(2,1,3,1,3,30,5);
  45.    String_Field(2,InField[2],'***********************************************');
  46.    Add_Field(3,2,4,2,4,16,6);
  47.    String_Field(3,InField[3],'********************************');
  48.    Add_Field(4,3,5,3,5,16,7);
  49.    String_Field(4,InField[4],'*********************');
  50.    Add_Field(5,4,6,4,6,44,7);
  51.    String_Field(5,InField[5],'!!');
  52.    Add_Field(6,5,7,5,7,51,7);
  53.    String_Field(6,InField[6],'#####-####');
  54.    Add_Field(7,6,8,6,8,16,8);
  55.    String_Field(7,InField[7],'(###)###-####');
  56.    Add_Field(8,7,9,7,9,39,8);
  57.    String_Field(8,InField[8],'**************************************');
  58.    Add_Field(9,8,10,8,10,12,10);
  59.    String_Field(9,InField[9],'');
  60.    Add_Field(10,9,11,9,11,4,11);
  61.    String_Field(10,InField[10],'**************************************************************************');
  62.    Add_Field(11,10,12,10,12,4,12);
  63.    String_Field(11,InField[11],'**************************************************************************');
  64.    Add_Field(12,11,13,11,13,4,13);
  65.    String_Field(12,InField[12],'**************************************************************************');
  66.    Add_Field(13,12,14,12,14,4,14);
  67.    String_Field(13,InField[13],'**************************************************************************');
  68.    Add_Field(14,13,15,13,15,4,15);
  69.    String_Field(14,InField[14],'**************************************************************************');
  70.    Add_Field(15,14,16,14,16,4,16);
  71.    String_Field(15,InField[15],'**************************************************************************');
  72.    Display_All_Fields;          { call to IoTTT5 }
  73. END;
  74.  
  75. PROCEDURE Reset_Fields;
  76.   { Blanks out InField array for clean input screen }
  77.   VAR a : byte;
  78. BEGIN
  79.   for A := 1 to 15 do
  80.      InField[A] := '';
  81. END;   { End of Reset_Fields }
  82.  
  83.   { *******************  MAIN PROGRAM ******************* }
  84. BEGIN
  85.   Prattr := 7;                     { Color of Prompts }
  86.   Reset_Fields;                    { Blank out fields }
  87.   Display_Input_Screen;
  88.   Process_Input(1);                { Begin input procedure }
  89.       { PUT YOUR PROGRAM HERE  }
  90. END.
  91.